Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

25x12
ClrText
" ":" "
Locate 1,1,"Generateur de"
Locate 1,2,"labyrinthe"
"Lignes "?L
"Colonnes "?C
L<2 Or C<2Stop
L>1212L
C>2525C
{L,C}Dim Mat L
Fill(.11,Mat L)
ClrText
1M~N
1D~E
1T
1.11Mat L[1,1]
Lbl 0
Int 4Ran#A
AB
Lbl 1
MP:NQ
A=0N+1Q
A=1M-1P
A=2N-1Q
A=3M+1P
P<1 Or P>L Or Q<1 Or Q>CGoto 2
Int Mat L[P,Q]=0Goto 3
Lbl 2
Isz A
A=40A
A=BGoto 4
Goto 1
Lbl 3
Isz T
Locate 1,1,Int (100T(CL))
If A=0
Then Mat L[M,N]-.1Mat L[M,N]
1.11Mat L[P,Q]
IfEnd
A=11.1Mat L[P,Q]
A=21.01Mat L[P,Q]
If A=3
Then Mat L[M,N]-.01Mat L[M,N]
1.11Mat L[P,Q]
IfEnd
PM:QN
T=CLGoto Z
Goto 0
Lbl 4
DF:EG
Lbl 5
G+1G
If G=C+1
Then 1G
F+1F
IfEnd
Int Mat L[F,G]=1Goto 5
FD:GE
Int 4Ran#A
Lbl 6
Isz A:A=40A
A=0G=C1A
A=1F=12A
A=2G=13A
A=3F=L0A
A=0G=C1A
FH:GI
A=0G+1I
A=1F-1H
A=2G-1I
A=3F+1H
Int Mat L[H,I]=0Goto 6
A=01.01Mat L[F,G]
If A=1
Then Mat L[H,I]-.01Mat L[H,I]
1.11Mat L[F,G]
IfEnd
If A=2
Then 1.11Mat L[F,G]
Mat L[H,I]-.1Mat L[H,I]
IfEnd
A=31.1Mat L[F,G]
Isz T
FM:GN
TCLGoto 0
Lbl Z
Prog "DES"